COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	begin  "sseguse"
C00007 ENDMK
C⊗;
begin  "sseguse"

  require  "define.sai"  source!file;
  require  "ps.dcl"  source!file;
  require  "seg.dcl"  source!file;
  require  "sseg.dcl"  source!file;
  
  internal  string  picture;
  boolean  exit;
  integer  task;

  simple  procedure  menu;
  begin
    print(" The following tasks can be performed by this program.",crlf);
    print("  0. Type out the menu.",crlf);
    print("  1. Display .sseg file as a picture.",crlf);
    Print("  2. Type .sseg data for individual supersegments.",crlf);
    print("  3. Zoom in on .sseg file.",crlf);
    print("  4. Add total length info to a .sseg file which does not have it.",crlf);
    print("  5. Edit the header.",crlf);
    print("  6. Exerciser.",crlf);
    print("  7. Dump sseg data on output.",crlf);
    print("  8. Make .sseg file from a .seg file",crlf);
    print("  9. Exit.",crlf);
    print(" 10. Check compatibility between .seg and .sseg files.",crlf);
  end;

  exit := false;  task := 0;  menu;
  while  not  exit  do
  begin
    do  begin
      iprmpt(" Task to be performed (0-10).",task);
    end  until  (0 <= task <= 10);
    if  not(task = 0 or task = 9)  then
    sprmpt(" Picture",picture);
    case  task  of
    begin
    [0]   menu;
    [1]   begin
            print(" Not implemented. Sorry.",crlf);
          end;
    [2]   begin
            ssgrdopen;  ssgtty;  ssgrclose;
          end;
    [3]   begin
            print(" Not implemented. Sorry.",crlf);
          end;
    [4]   BEGIN
            ssgrdopen;  ssgwtopen;  SGrdopen;
            mltotl;  wssghdr;
            ssgrclose;  ssgwclose;  sgclose;
            print(" A new .sseg version is now present.",crlf);
          end;
    [5]   begin  
            ssgrwopen;  rssghdr;  editheader;  wssghdr;  ssgwclose;
          end;
    [6]   begin
            EXTERnal  simple  procedure  ssgexer;
            ssgrdopen;
            ssgexer;
            ssgrclose;
          end;
    [7]   begin
          external  simple  procedure  ssdata;
            ssgrdopen;  ssdata;  ssgrclose;
          end;
    [8]   begin
          external  simple  procedure  ssgfsg;
            msec := ertime;
            sgrdopen;  ssgwtopen;
            ssgfsg;
            ssgwclose;  sgclose;
            print(" Time for making: ",ertime," msec.",crlf);
          end;
    [9]   exit := true;
    [10]  begin
          external  simple  procedure  scss;
          sgrdopen;  ssgrdopen;  scss;  ssgrclose;  sgclose;
          end
    end;
    print(crlf,crlf);
  end;

end  "sseguse"